1 Public Class FrmAUDIT_TRAIL
2
3 Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
4 Me.Close()
5 End Sub
6
7 Private Sub FrmAUDIT_TRAIL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8 FILLComboBox("SELECT User_ID, UserName FROM TBL_Users", cmbusers)
9 sqlSTR = "select * from tbl_users"
10
11 ExecuteSQLQuery(sqlSTR)
12 lstaudit.Items.Clear()
13 LP1.Enabled = False
14 LP2.Enabled = False
15 LP3.Enabled = False
16 LP4.Enabled = False
17 LP5.Enabled = False
18 LP6.Enabled = False
19 LP7.Enabled = False
20 LP8.Enabled = False
21 LP9.Enabled = False
22 LP10.Enabled = False
23 picPrevious.Enabled = False
24 PicNext.Enabled = False
25 If sqlDT.Rows.Count > 0 Then
26 cmbusers.SelectedItem = sqlDT.Rows(0)("User_ID") & " - " & sqlDT.Rows(0)("UserName")
27 End If
28
29 End Sub
30
31 Private Sub cmbusers_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbusers.TextChanged
32 'Dim i As Integer
33
34 sqlSTR = "SELECT Action, Date, Timex , LOGIN, LOGOUT " & _
35 "FROM (TBL_Audit_Trail " & _
36 "INNER JOIN TBL_Audit_Log ON TBL_Audit_Trail.User_ID = TBL_Audit_Log.User_ID " & _
37 " AND TBL_Audit_Trail.Log_ID = TBL_Audit_Log.Log_ID) " & _
38 "WHERE TBL_Audit_Trail.User_ID =" & Split(cmbusers.Text, " - ")(0) & _
39 " AND Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' ORDER BY Audit_ID"
40
41 ExecuteSQLQuery(sqlSTR)
42 'Page_Rendered(sqlDT.Rows.Count)
43 'If sqlDT.Rows.Count > 0 Then
44 ' LP1_LinkClicked(0, AcceptButton)
45 ' End If
46 lstaudit.Items.Clear()
47 If sqlDT.Rows.Count > 0 Then
48 For i = 0 To sqlDT.Rows.Count - 1
49 lstaudit.Items.Add(sqlDT.Rows(i)("Action"), 0)
50 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Date"))
51 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Timex"))
52 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGIN"))
53 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGOUT"))
54 '
55
56 Next
57 End If
58 End Sub
59
60 Private Sub dtfrom_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtfrom.ValueChanged
61 If Split(cmbusers.Text, " - ")(0) = "" Then
62 MsgBox("Select Username First", MsgBoxStyle.Exclamation, "Sales and Inventory")
63 Exit Sub
64 End If
65 ' sqlSTR = "SELECT * FROM TBL_Audit_Trail WHERE User_ID =" & Split(cmbusers.Text, " - ")(0) & _
66 ' " AND Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' ORDER BY Audit_ID"
67
68 sqlSTR = "SELECT Action, Date, Timex , LOGIN, LOGOUT " & _
69 "FROM (TBL_Audit_Trail " & _
70 "INNER JOIN TBL_Audit_Log ON TBL_Audit_Trail.User_ID = TBL_Audit_Log.User_ID " & _
71 " AND TBL_Audit_Trail.Log_ID = TBL_Audit_Log.Log_ID) " & _
72 "WHERE TBL_Audit_Trail.User_ID =" & Split(cmbusers.Text, " - ")(0) & _
73 " AND Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' ORDER BY Audit_ID"
74 ExecuteSQLQuery(sqlSTR)
75 lstaudit.Items.Clear()
76 If sqlDT.Rows.Count > 0 Then
77 For i = 0 To sqlDT.Rows.Count - 1
78 lstaudit.Items.Add(sqlDT.Rows(i)("Action"), 0)
79 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Date"))
80 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Timex"))
81 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGIN"))
82 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGOUT"))
83 Next
84 End If
85 End Sub
86
87 Private Sub dtto_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtto.ValueChanged
88 If Split(cmbusers.Text, " - ")(0) = "" Then
89 MsgBox("Select Username First", MsgBoxStyle.Exclamation, "Sales and Inventory")
90 Exit Sub
91 End If
92 'sqlSTR = "SELECT * FROM TBL_Audit_Trail WHERE User_ID =" & Split(cmbusers.Text, " - ")(0) & _
93 ' " AND Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' ORDER BY Audit_ID"
94
95 sqlSTR = "SELECT Action, Date, Timex , LOGIN, LOGOUT " & _
96 "FROM (TBL_Audit_Trail " & _
97 "INNER JOIN TBL_Audit_Log ON TBL_Audit_Trail.User_ID = TBL_Audit_Log.User_ID " & _
98 " AND TBL_Audit_Trail.Log_ID = TBL_Audit_Log.Log_ID) " & _
99 "WHERE TBL_Audit_Trail.User_ID =" & Split(cmbusers.Text, " - ")(0) & _
100 " AND Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "' ORDER BY Audit_ID"
101
102 ExecuteSQLQuery(sqlSTR)
103 lstaudit.Items.Clear()
104 If sqlDT.Rows.Count > 0 Then
105 For i = 0 To sqlDT.Rows.Count - 1
106 lstaudit.Items.Add(sqlDT.Rows(i)("Action"), 0)
107 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Date"))
108 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Timex"))
109 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGIN"))
110 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGOUT"))
111 Next
112 End If
113 End Sub
114
115 Private Sub FrmAUDIT_TRAIL_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
116 With Me
117 GroupBox1.Width = (.Width - (MDIMain.TSHoldRight.Width / 2)) + 62
118 GroupBox1.Height = .Height - (MDIMain.TSHoldAdvisory.Height + 52)
119 .lstaudit.Width = GroupBox1.Width - 10
120 .lstaudit.Height = GroupBox1.Height - 58
121 End With
122 End Sub
123
124 Private Sub LP1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP1.LinkClicked
125
126 LP1.LinkVisited = True
127 LP2.LinkVisited = False
128 LP3.LinkVisited = False
129 LP4.LinkVisited = False
130 LP5.LinkVisited = False
131 LP6.LinkVisited = False
132 LP7.LinkVisited = False
133 LP8.LinkVisited = False
134 LP9.LinkVisited = False
135 LP10.LinkVisited = False
136 If Nextpage > 0 Then
137
138 Else
139 sqlSTR = "Select * from(select row_number() over(order by Audit_ID) as row_numbers, " & _
140 "* from SaleInv_DB.dbo.TBL_Audit_Trail ) Tax " & _
141 "inner join SaleInv_DB.dbo.TBL_Audit_Log on " & _
142 "tax.User_ID = SaleInv_DB.dbo.TBL_Audit_Log.User_ID " & _
143 "and Tax.Log_ID = SaleInv_DB.dbo.TBL_Audit_Log.Log_ID " & _
144 "where tax.date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Tax.Date <='" & Format(dtto.Value, "MM/dd/yyyy") & _
145 "' AND row_numbers between 1 and 200"
146 ExecuteSQLQuery(sqlSTR)
147 End If
148 'p_List()
149 End Sub
150
151 Private Sub LP2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP2.LinkClicked
152
153 LP1.LinkVisited = False
154 LP2.LinkVisited = True
155 LP3.LinkVisited = False
156 LP4.LinkVisited = False
157 LP5.LinkVisited = False
158 LP6.LinkVisited = False
159 LP7.LinkVisited = False
160 LP8.LinkVisited = False
161 LP9.LinkVisited = False
162 LP10.LinkVisited = False
163 If NextPage > 0 Then
164
165 Else
166 sqlSTR = "Select * from(select row_number() over(order by Audit_ID) as row_numbers, " & _
167 "* from SaleInv_DB.dbo.TBL_Audit_Trail ) Tax " & _
168 "inner join SaleInv_DB.dbo.TBL_Audit_Log on " & _
169 "tax.User_ID = SaleInv_DB.dbo.TBL_Audit_Log.User_ID " & _
170 "and Tax.Log_ID = SaleInv_DB.dbo.TBL_Audit_Log.Log_ID " & _
171 "where tax.date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Tax.Date <='" & Format(dtto.Value, "MM/dd/yyyy") & _
172 "' AND row_numbers between 200 and 400"
173 ExecuteSQLQuery(sqlSTR)
174 End If
175 'p_List()
176 End Sub
177
178 Private Sub LP3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP3.LinkClicked
179 LP1.LinkVisited = False
180 LP2.LinkVisited = False
181 LP3.LinkVisited = True
182 LP4.LinkVisited = False
183 LP5.LinkVisited = False
184 LP6.LinkVisited = False
185 LP7.LinkVisited = False
186 LP8.LinkVisited = False
187 LP9.LinkVisited = False
188 LP10.LinkVisited = False
189 If NextPage > 0 Then
190
191 Else
192 sqlSTR = "Select * from(select row_number() over(order by Audit_ID) as row_numbers, " & _
193 "* from SaleInv_DB.dbo.TBL_Audit_Trail ) Tax " & _
194 "inner join SaleInv_DB.dbo.TBL_Audit_Log on " & _
195 "tax.User_ID = SaleInv_DB.dbo.TBL_Audit_Log.User_ID " & _
196 "and Tax.Log_ID = SaleInv_DB.dbo.TBL_Audit_Log.Log_ID " & _
197 "where tax.date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Tax.Date <='" & Format(dtto.Value, "MM/dd/yyyy") & _
198 "' AND row_numbers between 400 and 600"
199 ExecuteSQLQuery(sqlSTR)
200 End If
201 ' p_List()
202 End Sub
203
204 Private Sub LP4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP4.LinkClicked
205 LP1.LinkVisited = False
206 LP2.LinkVisited = False
207 LP3.LinkVisited = False
208 LP4.LinkVisited = True
209 LP5.LinkVisited = False
210 LP6.LinkVisited = False
211 LP7.LinkVisited = False
212 LP8.LinkVisited = False
213 LP9.LinkVisited = False
214 LP10.LinkVisited = False
215 If NextPage > 0 Then
216
217 Else
218 sqlSTR = "Select * from(select row_number() over(order by Audit_ID) as row_numbers, " & _
219 "* from SaleInv_DB.dbo.TBL_Audit_Trail ) Tax " & _
220 "inner join SaleInv_DB.dbo.TBL_Audit_Log on " & _
221 "tax.User_ID = SaleInv_DB.dbo.TBL_Audit_Log.User_ID " & _
222 "and Tax.Log_ID = SaleInv_DB.dbo.TBL_Audit_Log.Log_ID " & _
223 "where tax.date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Tax.Date <='" & Format(dtto.Value, "MM/dd/yyyy") & _
224 "' AND row_numbers between 600 and 800"
225 ExecuteSQLQuery(sqlSTR)
226 End If
227 ' p_List()
228 End Sub
229
230 Private Sub LP5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP5.LinkClicked
231 LP1.LinkVisited = False
232 LP2.LinkVisited = False
233 LP3.LinkVisited = False
234 LP4.LinkVisited = False
235 LP5.LinkVisited = True
236 LP6.LinkVisited = False
237 LP7.LinkVisited = False
238 LP8.LinkVisited = False
239 LP9.LinkVisited = False
240 LP10.LinkVisited = False
241 If NextPage > 0 Then
242
243 Else
244 sqlSTR = "Select * from(select row_number() over(order by Audit_ID) as row_numbers, " & _
245 "* from SaleInv_DB.dbo.TBL_Audit_Trail ) Tax " & _
246 "inner join SaleInv_DB.dbo.TBL_Audit_Log on " & _
247 "tax.User_ID = SaleInv_DB.dbo.TBL_Audit_Log.User_ID " & _
248 "and Tax.Log_ID = SaleInv_DB.dbo.TBL_Audit_Log.Log_ID " & _
249 "where tax.date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Tax.Date <='" & Format(dtto.Value, "MM/dd/yyyy") & _
250 "' AND row_numbers between 800 and 1000"
251 ExecuteSQLQuery(sqlSTR)
252 End If
253 'p_List()
254 End Sub
255
256 Private Sub LP6_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP6.LinkClicked
257 LP1.LinkVisited = False
258 LP2.LinkVisited = False
259 LP3.LinkVisited = False
260 LP4.LinkVisited = False
261 LP5.LinkVisited = False
262 LP6.LinkVisited = True
263 LP7.LinkVisited = False
264 LP8.LinkVisited = False
265 LP9.LinkVisited = False
266 LP10.LinkVisited = False
267 End Sub
268
269 Private Sub LP7_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP7.LinkClicked
270 LP1.LinkVisited = False
271 LP2.LinkVisited = False
272 LP3.LinkVisited = False
273 LP4.LinkVisited = False
274 LP5.LinkVisited = False
275 LP6.LinkVisited = False
276 LP7.LinkVisited = True
277 LP8.LinkVisited = False
278 LP9.LinkVisited = False
279 LP10.LinkVisited = False
280 End Sub
281
282 Private Sub LP8_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP8.LinkClicked
283 LP1.LinkVisited = False
284 LP2.LinkVisited = False
285 LP3.LinkVisited = False
286 LP4.LinkVisited = False
287 LP5.LinkVisited = False
288 LP6.LinkVisited = False
289 LP7.LinkVisited = False
290 LP8.LinkVisited = True
291 LP9.LinkVisited = False
292 LP10.LinkVisited = False
293 End Sub
294
295 Private Sub LP9_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP9.LinkClicked
296 LP1.LinkVisited = False
297 LP2.LinkVisited = False
298 LP3.LinkVisited = False
299 LP4.LinkVisited = False
300 LP5.LinkVisited = False
301 LP6.LinkVisited = False
302 LP7.LinkVisited = False
303 LP8.LinkVisited = False
304 LP9.LinkVisited = True
305 LP10.LinkVisited = False
306 End Sub
307
308 Private Sub LP10_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LP10.LinkClicked
309 LP1.LinkVisited = False
310 LP2.LinkVisited = False
311 LP3.LinkVisited = False
312 LP4.LinkVisited = False
313 LP5.LinkVisited = False
314 LP6.LinkVisited = False
315 LP7.LinkVisited = False
316 LP8.LinkVisited = False
317 LP9.LinkVisited = False
318 LP10.LinkVisited = True
319 End Sub
320 Private Sub Page_Rendered(ByVal N_Records As Double)
321 For LoopX = 1 To 11
322 If LoopX = 1 Then
323 If N_Records > 0 And N_Records <= 200 Then
324 LP1.Enabled = True
325 LP2.Enabled = False
326 LP3.Enabled = False
327 LP4.Enabled = False
328 LP5.Enabled = False
329 LP6.Enabled = False
330 LP7.Enabled = False
331 LP8.Enabled = False
332 LP9.Enabled = False
333 LP10.Enabled = False
334 picPrevious.Enabled = False
335 PicNext.Enabled = False
336 End If
337 ElseIf LoopX = 2 Then
338 If N_Records > 200 And N_Records <= (LoopX * 200) Then
339 LP1.Enabled = True
340 LP2.Enabled = True
341 LP3.Enabled = False
342 LP4.Enabled = False
343 LP5.Enabled = False
344 LP6.Enabled = False
345 LP7.Enabled = False
346 LP8.Enabled = False
347 LP9.Enabled = False
348 LP10.Enabled = False
349 picPrevious.Enabled = False
350 PicNext.Enabled = False
351 End If
352 ElseIf LoopX = 3 Then
353 If N_Records > 400 And N_Records <= (LoopX * 200) Then
354 LP1.Enabled = True
355 LP2.Enabled = True
356 LP3.Enabled = True
357 LP4.Enabled = False
358 LP5.Enabled = False
359 LP6.Enabled = False
360 LP7.Enabled = False
361 LP8.Enabled = False
362 LP9.Enabled = False
363 LP10.Enabled = False
364 picPrevious.Enabled = False
365 PicNext.Enabled = False
366 End If
367 ElseIf LoopX = 4 Then
368 If N_Records > 600 And N_Records <= (LoopX * 200) Then
369 LP1.Enabled = True
370 LP2.Enabled = True
371 LP3.Enabled = True
372 LP4.Enabled = True
373 LP5.Enabled = False
374 LP6.Enabled = False
375 LP7.Enabled = False
376 LP8.Enabled = False
377 LP9.Enabled = False
378 LP10.Enabled = False
379 picPrevious.Enabled = False
380 PicNext.Enabled = False
381 End If
382 ElseIf LoopX = 5 Then
383 If N_Records > 800 And N_Records <= (LoopX * 200) Then
384 LP1.Enabled = True
385 LP2.Enabled = True
386 LP3.Enabled = True
387 LP4.Enabled = True
388 LP5.Enabled = True
389 LP6.Enabled = False
390 LP7.Enabled = False
391 LP8.Enabled = False
392 LP9.Enabled = False
393 LP10.Enabled = False
394 picPrevious.Enabled = False
395 PicNext.Enabled = False
396 End If
397 ElseIf LoopX = 6 Then
398 If N_Records > 1000 And N_Records <= (LoopX * 200) Then
399 LP1.Enabled = True
400 LP2.Enabled = True
401 LP3.Enabled = True
402 LP4.Enabled = True
403 LP5.Enabled = True
404 LP6.Enabled = True
405 LP7.Enabled = False
406 LP8.Enabled = False
407 LP9.Enabled = False
408 LP10.Enabled = False
409 picPrevious.Enabled = False
410 PicNext.Enabled = False
411 End If
412 ElseIf LoopX = 7 Then
413 If N_Records > 1200 And N_Records <= (LoopX * 200) Then
414 LP1.Enabled = True
415 LP2.Enabled = True
416 LP3.Enabled = True
417 LP4.Enabled = True
418 LP5.Enabled = True
419 LP6.Enabled = True
420 LP7.Enabled = True
421 LP8.Enabled = False
422 LP9.Enabled = False
423 LP10.Enabled = False
424 picPrevious.Enabled = False
425 PicNext.Enabled = False
426 End If
427 ElseIf LoopX = 8 Then
428 If N_Records > 1400 And N_Records <= (LoopX * 200) Then
429 LP1.Enabled = True
430 LP2.Enabled = True
431 LP3.Enabled = True
432 LP4.Enabled = True
433 LP5.Enabled = True
434 LP6.Enabled = True
435 LP7.Enabled = True
436 LP8.Enabled = True
437 LP9.Enabled = False
438 LP10.Enabled = False
439 picPrevious.Enabled = False
440 PicNext.Enabled = False
441 End If
442 ElseIf LoopX = 9 Then
443 If N_Records > 1600 And N_Records <= (LoopX * 200) Then
444 LP1.Enabled = True
445 LP2.Enabled = True
446 LP3.Enabled = True
447 LP4.Enabled = True
448 LP5.Enabled = True
449 LP6.Enabled = True
450 LP7.Enabled = True
451 LP8.Enabled = True
452 LP9.Enabled = True
453 LP10.Enabled = False
454 picPrevious.Enabled = False
455 PicNext.Enabled = False
456 End If
457 ElseIf LoopX = 10 Then
458 If N_Records > 1800 And N_Records <= (LoopX * 200) Then
459 LP1.Enabled = True
460 LP2.Enabled = True
461 LP3.Enabled = True
462 LP4.Enabled = True
463 LP5.Enabled = True
464 LP6.Enabled = True
465 LP7.Enabled = True
466 LP8.Enabled = True
467 LP9.Enabled = True
468 LP10.Enabled = True
469 picPrevious.Enabled = False
470 PicNext.Enabled = False
471 End If
472 ElseIf LoopX = 11 Then
473 If N_Records > 2000 Then
474 picPrevious.Enabled = True
475 End If
476 End If
477 Next
478 End Sub
479
480 Private Sub p_List()
481 lstaudit.Items.Clear()
482 If sqlDT.Rows.Count > 0 Then
483 For i = 0 To sqlDT.Rows.Count - 1
484 lstaudit.Items.Add(sqlDT.Rows(i)("Action"), 0)
485 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Date"))
486 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("Timex"))
487 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGIN"))
488 lstaudit.Items(lstaudit.Items.Count - 1).SubItems.Add(sqlDT.Rows(i)("LOGOUT"))
489 Next
490 End If
491 End Sub
492
493 End Class